home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / super_c[data_becker_1985](v2_01).nbz / fmt-sample.c < prev    next >
Encoding:
Text File  |  2019-04-13  |  1.8 KB  |  80 lines
  1. äç /*    ╘EST-╨ROGRAM FOR FORMATTED ╔╬-/╧╒╘╨╒╘             */
  2. /*           FROM ╘HOMAS ┼IRICH, ╞RANZ ╩. ╚AUCK         */
  3. 
  4. ò#INCLUDE "STDIO.H"
  5. ù
  6. CHAR TYP[][7]=█ "","CHAR", "INT", "LONG", "FLOAT",
  7.                 "DOUBLE", "STRING"
  8.               ▌;
  9. CHAR   C;
  10. INT    I;
  11. LONG   L;
  12. FLOAT  F;
  13. DOUBLE D;
  14. CHAR   S[162];
  15. ù
  16. üVOID XSCANF(COM,NUM)
  17. ÿCHAR COM[]; INT NUM;
  18. ù█
  19. ù   SWITCH(NUM)
  20. ù   █   CASE 1: SCANF(COM,&C);
  21. ù               BREAK;
  22. ù       CASE 2: SCANF(COM,&I);
  23. ù               BREAK;
  24. ù       CASE 3: SCANF(COM,&L);
  25. ù               BREAK;
  26. ù       CASE 4: SCANF(COM,&F);
  27. ù               BREAK;
  28. ù       CASE 5: SCANF(COM,&D);
  29. ù               BREAK;
  30. ù       CASE 6: SCANF(COM,S);
  31. ù               BREAK;
  32. ù   ▌
  33. ù▌
  34. ù
  35. üVOID XPRINTF(COM,NUM)
  36. ÿCHAR COM[]; INT NUM;
  37. ù█
  38. ù   SWITCH(NUM)
  39. ù   █
  40. ù       CASE 1: PRINTF(COM,C);
  41. ù               BREAK;
  42. ù       CASE 2: PRINTF(COM,I);
  43. ù               BREAK;
  44. ù       CASE 3: PRINTF(COM,L);
  45. ù               BREAK;
  46. ù       CASE 4: PRINTF(COM,F);
  47. ù               BREAK;
  48. ù       CASE 5: PRINTF(COM,D);
  49. ù               BREAK;
  50. ù       CASE 6: PRINTF(COM,S);
  51. ù               BREAK;
  52. ù   ▌
  53. ù▌
  54. ù
  55. üMAIN()
  56. ÿ█  CHAR   NUM,COM[162];
  57. ÿ
  58. ù   PUTS("\223PRINTF/SCANF ╘ESTER\N");
  59. ù
  60. ù   WHILE()
  61. ù   █
  62. ù       PUTS("\N\0371=CHAR, 2=INT, 3=LONG, 4=FLOAT\N");
  63. ù       PUTS("5=DOUBLE, 6=STRING\N");
  64. ù       PUTS("\036CHOOSE A TYPE NUMBER:");
  65. ù       SCANF("%D",&NUM);
  66. ù       IF(NUM<1 ▄▄ NUM>6)  CONTINUE;
  67. ù
  68. ù       PUTS("\N├OMMAND ╙TRING FOR ╙├┴╬╞\N");
  69. ù       PRINTF("(ONLY ONE %S-FORMAT ELEMENT!)\N",TYP[NUM]);
  70. ù       GETS(COM,162);
  71. ù       PUTS("\N╔NPUT LINE FOR ╙├┴╬╞\N");
  72. ù       XSCANF(COM,NUM);
  73. ù       PUTS("\N├OMMAND ╙TRING FOR ╨╥╔╬╘╞\N");
  74. ù       PRINTF("(ONLY ONE %S-FORMAT ELEMENT!)\N",TYP[NUM]);
  75. ù       GETS(COM,162);
  76. ù       PUTCHAR('\N');
  77. ù       XPRINTF(COM,NUM);
  78. ù   ▌
  79. ù▌